1 CLS:PRINT:X$=STR$(RND(9E3)+1E3):FORK=1TO1E4:PRINT,CHR$(27)B;M:R$(1)=X$:INPUTA:M=0:B=0:IFA<1E3ORA>=.1E4THENB=9:NEXTELSER$(2)=STR$(A):C=C+1:FORI=2T05:IFMID$(X$,I,1)=MID$(R$(2),I,1):B=B+1:FORJ=1TO2:R$(J)=LEFT$(R$(J),I-1)+" "+RIGHT$(R$(J),5-I):NEXTJ,IELSENEXT
2 RANDOM:IFB=4THENPRINT"GAGNE EN "C"COUPS"ELSEFORI=2TO5:FORJ=2TO5:A$=MID$(R$(1),I,1):IFA$=" "THENNEXTJ,I,KELSEIFA$=MID$(R$(2),J,1)THENM=M+1:R$(1)=LEFT$(R$(1),I-1)+" "+RIGHT$(R$(1),5-I):R$(2)=LEFT$(R$(2),J-1)+" "+RIGHT$(R$(2),5-J):NEXTJ,I,KELSENEXTJ,I,K